home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…rary 5 (Internal Edition) / Apple R&P Lib Internal v5.0.iso / 6-Developer Demos / Developer Demos-Ed. / Macintosh School® CD-ROM Demo / Macintosh SchoolÆ CD-ROM Demo / card_50598.txt < prev    next >
Text File  |  1990-08-14  |  2KB  |  109 lines
  1. -- card: 50598 from stack: in
  2. -- bmap block id: 51078
  3. -- flags: 4000
  4. -- background id: 25390
  5. -- name: Lunch Status…
  6.  
  7.  
  8. -- part 1 (button)
  9. -- low flags: 00
  10. -- high flags: 2000
  11. -- rect: left=132 top=283 right=301 bottom=190
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: OK
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   lock screen
  23.   put "Lunch Status‚Ķ" into card field "Title"
  24.   put empty into card field "Lunch Status"
  25.   doMenu first
  26.   unlock screen
  27. end mouseUp
  28.  
  29.  
  30.  
  31. -- part 2 (button)
  32. -- low flags: 00
  33. -- high flags: 2000
  34. -- rect: left=322 top=283 right=301 bottom=380
  35. -- title width / last selected line: 0
  36. -- icon id / first selected line: 0 / 0
  37. -- text alignment: 1
  38. -- font id: 0
  39. -- text size: 12
  40. -- style flags: 0
  41. -- line height: 16
  42. -- part name: Cancel
  43. ----- HyperTalk script -----
  44. on mouseUp
  45.   lock screen
  46.   put "Lunch Status‚Ķ" into card field "Title"
  47.   put empty into card field "Lunch Status"
  48.   doMenu first
  49.   unlock screen
  50. end mouseUp
  51.  
  52.  
  53.  
  54. -- part 3 (field)
  55. -- low flags: 00
  56. -- high flags: 0000
  57. -- rect: left=130 top=196 right=265 bottom=365
  58. -- title width / last selected line: 0
  59. -- icon id / first selected line: 0 / 0
  60. -- text alignment: 0
  61. -- font id: 3
  62. -- text size: 10
  63. -- style flags: 0
  64. -- line height: 17
  65. -- part name: Lunch Status
  66.  
  67.  
  68. -- part 4 (button)
  69. -- low flags: 00
  70. -- high flags: 2000
  71. -- rect: left=202 top=283 right=301 bottom=310
  72. -- title width / last selected line: 0
  73. -- icon id / first selected line: 0 / 0
  74. -- text alignment: 1
  75. -- font id: 0
  76. -- text size: 12
  77. -- style flags: 0
  78. -- line height: 16
  79. -- part name: Change Title…
  80. ----- HyperTalk script -----
  81. on mouseUp
  82.   lock screen
  83.   put card field "Title" into card field "Title" of next card
  84.   put card field "Title" into card field "Status" of next card
  85.   put empty into last char of card field "Status" of next card
  86.   go to next card
  87.   unlock screen
  88.   tabKey
  89. end mouseUp
  90.  
  91.  
  92.  
  93. -- part 5 (field)
  94. -- low flags: 01
  95. -- high flags: 0001
  96. -- rect: left=128 top=43 right=61 bottom=306
  97. -- title width / last selected line: 0
  98. -- icon id / first selected line: 0 / 0
  99. -- text alignment: 0
  100. -- font id: 0
  101. -- text size: 12
  102. -- style flags: 0
  103. -- line height: 16
  104. -- part name: Title
  105.  
  106.  
  107. -- part contents for card part 5
  108. ----- text -----
  109. Lunch Status‚Ķ